﻿<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%option explicit%>
<%
Dim RZ_IN
RZ_IN=1
%>
<!--#include file="../conn.inc.asp" -->
<!--#include file="admin_inc/admin.function.asp" -->
<!--#include file="admin_inc/admin.sqlfunction.asp" -->
<%
'作者：山林客（ah_bill）
'博客：http://ruizhinet.blog.163.com
'网站：http://www.ruizhinet.cn
'本信息不会影响您网站的正常访问，请保留
checkadmin(1)
dim id
id=GetIntQueryString("id")
S_LANG=GetIntQueryString("lang")
if id>0 Then
Dim rsa,sqla,path,specialid,lang
Set rsa = Server.CreateObject("ADODB.Recordset")
sqla = "select path,specialid,lang from [c_job] where id="&id
rsa.open sqla,conn,1,1
If Not rsa.eof Then 
path=CutPath(rsa("path"))
specialid=rsa("specialid")
lang=rsa("lang")
Call updateTypeModifytime(path,Now())
End If 
rsa.close
Set rsa=Nothing 
conn.Execute("delete from [c_job] where id="&id)

Dim filepath,static_path
static_path=Replace(path,",","-")
filepath=RZ_HTML_PATH&"/"&RZ_PRE_JOB_SHOW&lang&"/t"&static_path&"/c"&id&".html"
Call DeleteHtml(filepath)
If specialid>0 Then 
filepath=RZ_HTML_PATH&"/"&RZ_PRE_JOB_SHOW&lang&"/t"&static_path&"/s"&specialid&"c"&id&".html"
Call DeleteHtml(filepath)
End If 

conn.Execute("update [c_record_comment] set visible=0 where fenlei=7 and recordid="&id)

response.redirect("showmsg.asp?from=job_list.asp&msg=RemoveSuccess&lang="&S_LANG)
else
response.redirect("showmsg.asp?from=job_list.asp&msg=ParameterError&lang="&S_LANG)
end if
%>